COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C THIS AIDS IN EXTRACTING PARTS FROM SCORES. SEE PT1.CMD
C00004 ENDMK
C⊗;
C THIS AIDS IN EXTRACTING PARTS FROM SCORES. SEE PT1.CMD
	COMMON/STF/RSTFAC(-3/4),RSTJ2 /POSI/STFF(-3/4),JJ2,JPQ
	1 /IPG/IPG,JPG,BRACK,RSTNUM(8),RPSZ(8),RHGT(8),
	1 RCLEF(-3/4) /IVV/IWDS(250)
	COMMON RS,JA,REST,J2,RQ(18),JX,PR,LX,RDIS
C  ORDER OF COMMON BLOCKS **MUST** STAY AS IS!
	COMMON/XRN/RN(4000) /SF/KL,RT,KP,STFSZ,NAMX
	1 /PTR/KWDS(700)/LLL/L,LL,I,IX/XXX/LK,LP,JY /JN/J,N
C  INCREASE DIMENSION OF KWDS FOR VERY FULL PAGES.
      DIMENSION KNM(10),NRD(100),MM(4000),NN(4000),BARS(510),
	1 KPN(1),RSIG(-3/4),RMETER(-3/4),RCL(-3/4)
	COMMON /PX/PN(2000) /Q/Q(8400)
	1 /RCLF/KK,CLEF,KW,ITEM,RSTAFF,SN,YN,RNAM,RNAM2,RNAM3
	1 /KBAR/KBAR(512)
	DATA FIB/.7/,RSPC/25./,PGNUM/1.6/,RNMHT/16.0/,RNMSZ/1.2/
	1 ,RLTRSZ/1.0/,SPCPG/2.7/
	EQUIVALENCE (RQ(2),R4),(R5,RQ(3)),(R6,RQ(4)),(R7,RQ(5))
	1,(MM,RN),(NN,RN(4001)),(KPN,PN),(KS,RS),(BARS,KBAR(3))
	1,(R8,RQ(6)),(R9,RQ(7)),(RQ(10),XLFT),(K,KBAR),(T,KBAR(2))
C  RQ(2) IS R4, RQ(3) IS R5 ETC.

	CALL PT2
	END